home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 151-175 / scopedisk168 / asmmacros / am_02 / datestamp.i < prev    next >
Text File  |  1995-03-19  |  709b  |  32 lines
  1.      NOLIST
  2. DateStamp      MACRO           ; 14 Sept 88
  3. *------------------------------; Start of DateStamp macro.
  4.      NOLIST
  5.      IFEQ ReEntrant-1
  6.      LIST
  7.      DefDS Time.ds_Days,1
  8.      DefDS Time.ds_Minute,1
  9.      DefDS Time.ds_Tick,1
  10.      NOLIST
  11.      ENDC
  12.      IFNE ReEntrant-1
  13.      LIST
  14.      DS_BSS Time.ds_Days,1,.L
  15.      DS_BSS Time.ds_Minute,1,.L
  16.      DS_BSS Time.ds_Tick,1,.L
  17.      NOLIST
  18.      ENDC
  19.      LIST
  20.      MOVE.L #Time.ds_Days,D1   ; Make D1 point to the date stamp buffer.
  21.      NOLIST
  22.      IFEQ ReEntrant-1
  23.      LIST
  24.      ADD.L A5,D1
  25.      NOLIST
  26.      ENDC
  27.      LIST
  28.      CallLib DateStamp,dos     ; Call DateStamp.
  29. *------------------------------; End of DateStamp macro.
  30.      ENDM
  31.      LIST
  32.